<script>function reformat aStringif char 1 of astring <> "[" then return "Not an archive."repeat 2delete char 1 to (offset("/",aString)) of aStringend repeatput space into char (offset("/",astring)) of aStringdelete last char of aStringreturn aStringend reformaton mouseUpglobal theString, theSub, lastFoundget the mouselocif the optionkey is "down" thenset the locktext of me to falseclick at itset the locktext of me to trueselect the selectedlineget the selectionput LowerToUpper(it) into itput reformat(it) into it -- in this field's scriptif word 1 of it is "not" thenbeepAnswer "Option-click adds entries to MacArchive."exit to HyperCardend ifset the lockscreen to trueset the lockmessages to trueset the lockrecent to truepush cardgo cd (word 1 of it) of stack "MacArchives"delete word 1 of itif it is not in fld "text" thenput it & return after fld "text"put sortlines(fld text) into fld "text"end ifpop cardelseset the locktext of me to falseclick at itclick at itput the selection into theStringif theString is empty thenset the scroll of me to 1elseif word 2 of the selectedline Γëñ fld numTopics thenselect the selectedlineget the selectionrepeatif char 1 of it <> space then exit repeatdelete char 1 of itend repeatput "Subject: " before itput it into theStringend ifput "find string theString in fld text"hide the msgreturnkeyif the foundchunk is not lastfound thenput the foundchunk into lastfoundelse returnkeyend ifend ifset the locktext of me to trueend mouseup</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>327</left>
<top>316</top>
<right>357</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>next</name>
<script>on mouseUplock screengo nextif the short name of this cd is "Help" then go nextunlock screen with visual wipe leftend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>129</left>
<top>316</top>
<right>159</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>prev</name>
<script>on mouseUplock screengo previf the short name of this cd is "Help" then go prevunlock screen with visual wipe rightend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>313</top>
<right>35</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20098</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>42</left>
<top>309</top>
<right>78</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>print</name>
<script>on mouseUpglobal action, delayAnswer "Print entire digest, or selection?" with "Cancel" or "Yes" or "Selection"if it is "Cancel" thenAnswer "Would you like some help on"&&¬quote&"printing""e&"?" with "No" or "Help"if it is "No" then exit mouseUpelsepush cardgo cd "Help"find string "Subject: The ""e&"Printer""e&" icon"end ifelse if it is "Yes" thentextstream "fld text"elseput the ticks + 120 into delayset the locktext of field "text" to falseput "print" into action-- textstream "the selection"end ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>228</left>
<top>314</top>
<right>258</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8538</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>find</name>
<script>on mouseUpGlobal theString, lastFoundAsk "Find what?" with theStringif it is empty then exit mouseUpif it is not theString thenput it into theStringAnswer "Full text or Topic search?" with "Full" or "Topic"if it is "Topic" thenput "find theString in fld topics"hide the msgend ifput "find theString in fld text"hide the msgend ifreturnkeyif the foundchunk is not lastfound thenput the foundchunk into lastfoundelse returnkeyend mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>429</left>
<top>320</top>
<right>460</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>cd num</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>381</left>
<top>321</top>
<right>411</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>numTopics</name>
<script></script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>25</left>
<top>56</top>
<right>469</right>
<bottom>235</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Topics</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>313</top>
<right>404</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25002</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpvisual iris opengo cd "Help"end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>82</left>
<top>309</top>
<right>120</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1005</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>extract</name>
<script>on mouseUpglobal action,delayAnswer "Save entire digest as TEXT file?" with "Save" or¬"Cancel" or "Selection"if it is "selection" thenput the ticks + 120 into delayset the locktext of fld "text" to falseput "file" into actionelse if it is "Save" thenFieldToFile("fld text")elseAnswer "Do you want help with ""e&"Saving""e&"?" with ¬"No" or "Help"if it is "Help" thensend mouseUp to bg btn "Help"find string "Subject: The ""e&"MacWrite""e&" Icon"end ifend ifend mouseUP</script>
</part>
<name>help</name>
<script>on opencardput the number of this card into fld "cd num"pass opencardend opencard</script>
